home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / gvocx / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-03-27  |  2.7 KB  |  87 lines
  1. VERSION 4.00
  2. Begin VB.Form About_Frm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About GVBox OCX"
  7.    ClientHeight    =   2670
  8.    ClientLeft      =   2685
  9.    ClientTop       =   2040
  10.    ClientWidth     =   4065
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3075
  22.    Icon            =   "About.frx":0000
  23.    Left            =   2625
  24.    LinkTopic       =   "Form2"
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   2670
  28.    ScaleWidth      =   4065
  29.    Top             =   1695
  30.    Width           =   4185
  31.    Begin VB.CommandButton Cmd_OK 
  32.       Appearance      =   0  'Flat
  33.       BackColor       =   &H80000005&
  34.       Caption         =   "OK"
  35.       Default         =   -1  'True
  36.       Height          =   375
  37.       Left            =   1560
  38.       TabIndex        =   1
  39.       Top             =   2040
  40.       Width           =   975
  41.    End
  42.    Begin VB.Image Image1 
  43.       Appearance      =   0  'Flat
  44.       Height          =   480
  45.       Left            =   360
  46.       Picture         =   "About.frx":030A
  47.       Top             =   240
  48.       Width           =   480
  49.    End
  50.    Begin VB.Label Lbl_About 
  51.       Alignment       =   2  'Center
  52.       Appearance      =   0  'Flat
  53.       BackColor       =   &H80000005&
  54.       BeginProperty Font 
  55.          name            =   "MS Sans Serif"
  56.          charset         =   0
  57.          weight          =   700
  58.          size            =   9.75
  59.          underline       =   0   'False
  60.          italic          =   0   'False
  61.          strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   &H80000008&
  64.       Height          =   1455
  65.       Left            =   480
  66.       TabIndex        =   0
  67.       Top             =   240
  68.       Width           =   3255
  69.    End
  70. Attribute VB_Name = "About_Frm"
  71. Attribute VB_Creatable = False
  72. Attribute VB_Exposed = False
  73. Option Explicit
  74. Private Sub Cmd_OK_Click()
  75.     Unload About_Frm
  76. End Sub
  77. Private Sub Form_Load()
  78.     Dim A$, CRLF$
  79.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
  80.     CRLF$ = Chr$(13) & Chr$(10)
  81.     A$ = "GVBox OCX" & CRLF$ & "Version 1.0" & CRLF$ & CRLF$
  82.     A$ = A$ & "by Joe C. Oliphant" & CRLF$
  83.     A$ = A$ & "joe_oliphant@csufresno.edu" & CRLF$
  84.     A$ = A$ & "CompuServe [71742,1451]"
  85.     Lbl_About.Caption = A$
  86. End Sub
  87.